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Abstract 

A  Macintosh  computer  has  been  used  to  acquire  data  from  blast  overpressure  trials  on 
various  weapons.  The  computer  is  connected  to  a  multiple  channel  FM  data  recorder  via 
a  MacSCSI488  bus  controller,  allowing  the  computer  to  control  the  recorder  and  to 
acquire  data  from  it  through  an  analog  to  digital  converter.  Detailed  instructions  are 
given  for  connecting  the  hardioare  and  operating  the  software  involved. 
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OTIC  QUALITY  INSPECTED  * 


Data  Acquisition  from  Blast 
Overpressure  Trials 


1.  Introduction 

The  firing  of  guns  and  other  explosive  weapons  produces  a  rapid  change  in  pressure 
in  the  atmosphere.  These  pressure  changes  can  damage  the  hearing  of  any  person 
close  to  the  weapon,  particularly  the  operator.  To  assess  levels  of  overpressure,  trials 
are  performed  at  various  sites,  depending  on  the  nature  of  the  weapon  being  tested. 
The  pressures  are  measured  at  a  number  of  locations  using  pressure  transducers  to 
convert  pressure  to  voltage  which  is  recorded  on  a  high  speed  FM  data  tape  recorder. 
A  typical  recorder  can  store  14  channels  of  data  at  a  speed  of  76  cm/s.  A  playback 
speed  of  1.2  cm/s  gives  a  time  magnification  of  about  63.  Thus  1  ms  of  real  time 
expands  to  63  ms  of  tape  time,  allowing  for  much  greater  detail  to  be  examined. 

Records  from  the  FM  data  recorder  can  be  transferred  to  an  oscilloscope  and 
plotted  with  a  pen  recorder.  Alternatively,  the  tape  can  be  played  through  an  analog 
to  digital  (A-to-D)  converter  and  data  transferred  to  a  computer  for  a  more  detailed 
analysis.  An  arrangement  that  has  been  used  for  some  time  in  Explosives  Ordnance 
Division,  Salisbury  consists  of  transferring  the  data  to  a  Macintosh  computer  via  a 
MacSCSI488  Iotech  Bus  Controller.  This  is  simply  a  device  that  converts  IEEE488 
interface  signals  to  Small  Computer  Systems  Interface  (SCSI)  signals  and  vice  versa, 
thus  allowing  the  Macintosh  to  communicate  with  IEEE  devices,  such  as  a  data 
recorder  and  an  A-to-D  converter.  The  advantage  of  the  Macintosh  is  the  variety  of 
software  that  is  available  to  manipulate  data  and  the  convenient  user  interface.  The 
software  suite  currently  used  to  produce  final  pressure-time  data  includes  a  locally 
written  program  using  Microsoft  Quickbasic,  to  effect  the  transfer  of  data  and  also  to 
manipulate  the  data  acquired;  McSink,  a  Macintosh  desk  accessory  that  allows 
hidden  characters  (such  as  carriage  controls)  to  be  edited;  and  Igor,  a  data 
manipulation  and  graph  plotting  program  from  WaveMetrics. 


2.  Software 

A  program  written  in  Microsoft  QuickBasic  is  used  to  transfer  the  data  from  the  FM 
data  recorder  to  the  Macintosh  via  a  12-bit  analog  to  digital  converter.  The  program 
takes  into  account  the  voltage  range  used  to  record  the  data,  the  pressure  to  voltage 
conversion  factor  and  the  record  and  playback  speeds.  It  prompts  the  user  for 
information  such  as  the  file  name  to  store  a  channel  of  data.  It  controls  the  operation 
of  the  recorder  and  the  A-to-D  converter,  such  as  start  and  stop.  All  the  operator  has 
to  do  is  to  position  the  tape  at  an  appropriate  starting  point  and  activate  the  program. 

The  data  acquired  from  the  FM  data  recorder  are  in  a  raw  form  and  consist  of 
columns  of  figures  for  time  and  pressure  and  a  third  column  if  a  trigger  channel  is 
recorded.  The  zero  point  for  the  time  base  is  arbitrary  and  if  a  time  of  arrival  of  a 
certain  data  value,  for  example  maximum  pressure,  from  a  given  point  is  required  the 
data  must  be  manipulated  to  reflect  this.  The  WaveMetrics  program  "Igor"  is  ideal 
for  this  purpose.  Data  can  be  displayed  and  edited  in  tabular  and  graphic  form. 
Factors  can  be  applied  to  the  data  to  adjust  the  time  base  to  the  correct  zero  point  and 
a  preliminary  plot  can  be  displayed  on  the  screen.  A  Macintosh  Desk  Accessory 
McSink  is  used  at  a  later  time  to  further  transform  the  data. 

Some  software  is  also  required  to  drive  the  MacSCSI488  Interface.  This  is  supplied 
by  Iotech  and  must  be  installed  according  to  the  product  manual. 


3.  Hardware  Connections 

Several  pieces  of  hardware  are  needed  to  process  the  data.  A  Kyowa  14  channel  RTP- 
650A  data  recorder  is  commonly  used  but  any  recorder  can  be  substituted  provided  it 
has  a  minimum  of  40kHz  bandwith,  FM  mode,  multiple  speeds  and  IEEE  (GPIB) 
Interface.  An  analog-to-digital  converter  such  as  fite  Kyowa  ADC-116C  is  used  to 
convert  ±  5  volts  signed  input  to  a  digital  range  of  -  2048  to  +  2048,  an  11  bit  range, 
with  the  twelfth  bit  indicating  the  sign.  An  Iotech  MacSCSI488  bus  controller 
converts  IEEE  signals  to  SCSI  signals  and  vice  versa  to  allow  a  Macintosh  computer, 
typically  an  SE/30,  to  communicate  with  and  control  the  recorder  and  the  A-to-D 
converter.  Subsequent  discussion  in  this  report  applies  to  the  hardware  described  but 
adaptations  can  be  made  for  other  hardware.  Two  1EEE488  cables  are  needed  to 
connect  the  MacSCSI488  to  the  A-to-D  converter  and  the  recorder  and  a  SCSI  cable  is 
used  to  connect  the  Macintosh  to  the  Mac5CSI488  bus  controller.  The  data  are 
transferred  through  one  or  two  coaxial  cables.  To  avoid  the  continual  connecting  and 
disconnecting  of  cables  the  pressure  data  are  usually  acquired  by  connecting  the 
MONI  output  on  the  recorder  to  channel  1  of  the  A-to-D  converter.  This  allows  the 
operator  to  select  the  channel  to  be  monitored  by  using  file  button  on  the  recorder 
labelled  "CHANNEL  SELECT".  If  a  trigger  channel  was  recorded  this  channel  is 
connected  to  file  channel  2  input  of  the  A-to-D  converter.  A  diagram  of  the  cable 
connections  required  is  shown  in  Figure  1.  Sometimes  the  trigger  peak  is  a  very 
narrow  pulse  and  does  not  always  register  on  the  A-to-D  converter,  especially  if  the 
sampling  rate  is  relatively  slow  (200  Hz  for  example).  A  small  locally  built  electronic 
circuit  is  used  to  detect  this  peak  and  prolong  it  sufficiently  to  be  recognised  by  the  A 
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to  D  converter.  This  device  is  connected  between  the  recorder  and  the  A  to  D 
converter  in  the  trigger  channel  coaxial  cable. 
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4.  Starting  Up 

Before  acquiring  any  data  it  has  been  found  useful  to  record  a  copy  of  the  original 
tape  and  use  that  in  the  recorder,  rather  than  the  original.  A  faulty  recorder  may 
damage  the  tape  and  data  may  be  lost.  A  copy  can  be  made  by  simply  connecting  the 
channel  outputs  from  one  data  recorder  to  the  channel  inputs  of  another  data 
recorder  and  playing  the  original  tape  on  one  recorder  while  recording  on  the  other. 


When  starting  up  the  various  devices  it  is :  mportant  to  switch  on  the  data  recorder 
and  the  A-to-D  converter  first,  then  the  MacSCS1488  bus  controller,  then  the 
computer.  The  mouse  button  should  be  held  down  when  switching  on  the  computer 
and  held  until  a  list  of  INITs  appears.  One  is  called  MacSCSI488  which  must  be 
selected  as  active.  There  must  be  no  external  drives  on  the  SCSI  interface,  and  any 
associated  INITs  should  be  switched  off.  It  is  also  a  good  idea  to  disable  any  screen 
savers,  which  can  cause  loss  of  data  on  screen  when  the  computer  is  acquiring  data. 
Other  INITs  which  might  be  disabled  include  TOPS  and  TOPS  Spool  but  virus 
protection  software  such  as  Gatekeeper  and  Disinter  .ant  should  not  be  disabled. 
Finally,  the  computer  should  be  operated  in  Finder  and  not  Multifinder  mode. 

Once  all  the  hardware  requirements  are  complete,  the  tape  cassette  is  inserted  into 
the  recorder  and  the  required  data  found  manually.  The  tape  speed  should  be  set  at 
1.2  cm/s  and  the  tape  positioned  about  6  seconds  before  the  first  peak  required.  A 
simple  procedure  such  as  counting  seconds  is  usually  sufficiently  accurate  for  this 
purpose.  The  compiled  program  is  then  activated  to  commence  data  acquisition. 


5.  The  Data  Acquisition  Program 

A  listing  of  the  QuickBasic  program  used  to  acquire  data  from  one  channel  is  given  in 
Appendix  I.  Lines  18  to  24  handle  the  initialisation  of  the  IEEE  interface.  The  next 
section  down  to  line  40  initialises  program  variables  before  displaying  Window2. 
Lines  44  to  59  display  the  input  window,  buttons  and  default  values  set  by  the 
program.  This  window  is  displayed  until  the  pointer  is  clicked  on  the  CONTINUE 
button.  The  next  section  down  to  Window3  changes  the  program  variables  to  reflect 
what  the  user  has  entered  on  the  input  window.  Window3  displays  a  progress  report 
on  how  many  records  are  left  to  transfer.  Statements  beginning  'IeeeWrite'  send 
various  commands  to  the  IEEE  interface,  such  as  telling  the  recorder  to  start.  For  a 
detailed  description  of  what  each  command  does  the  Kyowa  manuals  should  be 
consulted.  Line  117  converts  the  voltage  from  the  recorder  to  kiloPascals  (kPa)  and 
computes  the  time  elapsed  since  the  first  record  was  acquired.  The  factor  6/5  is  used 
when  a  backup  tape  is  being  scanned.  Backup  tapes  are  recorded  with  an  output 
range  of  5  Volts  and  an  input  range  of  6  Volts,  hence  the  6/5  conversion.  If  the 
original  tape  is  used  (although  this  is  not  recommended)  this  factor  should  be 
removed  and  the  program  recompiled.  Lines  129  onwards  display  a  termination 
window  allowing  the  operator  to  continue  with  another  record  or  to  quit.  The  time 
taken  for  the  previous  transfer  is  also  displayed.  The  subroutines  from  line  152 
onwards  are  supplied  by  Iotech  and  are  used  to  access  the  IEEE  interface. 

Appendix  II  is  a  listing  of  a  similar  program  to  acquire  data  when  a  trigger  channel 
has  been  recorded  as  well. 


6.  Operating  the  Acquisition  Program 

The  Microsoft  QuickBasic  environment  allows  compilation  of  programs  to  produce  an 
executable  Macintosh  module.  It  is  this  compiled  version,  executed  by  double 
clicking  on  its  Icon,  which  displays  on  the  screen  a  window  similar  to  Figure  2.  The 
contents  of  the  five  rectangular  boxes  can  be  edited  using  the  click  and  drag  function 
of  the  Macintosh.  The  OUTPUT  FILE  NAME  can  be  any  legal  Macintosh  name.  The 
Press  (kPa/volt)  box  is  the  calibration  value  of  the  pressure  transducer  used.  VTR 
Range  is  the  voltage  input  range  used  when  the  data  were  originally  acquired,  usually 
somewhere  between  0.4  and  6  volts.  The  No.of  Points  can  be  anything  from  about 
2000  to  12  000  but  6000  is  a  good  working  compromise  between  taking  a  long  time 
and  risking  missing  the  peak.  A  limited  number  of  options  is  given  for  the  Time 
interval,  this  is  the  interval  that  the  A-to-D  Converter  will  use  to  acquire  data  from 
the  recorder.  The  user  can  enter  0.5, 1, 2  or  5  ms.  These  give  sample  rates  of  2000, 
1000, 500  and  200  Hz  respectively.  Any  figure  greater  than  5  is  set  to  5,  any  figure 
less  than  0.5  is  set  to  0.5.  Other  numbers  will  be  converted  to  one  of  the  four  possible 
intervals.  When  converted  from  the  recording  speed  of  76  cm/s  to  the  playback 
speed  of  1.2  cm/ s  these  intervals  convert  to  real  time  intervals  from  7.9  to  79  ps.  It  is 
possible  to  use  other  values  with  a  small  program  change  but  these  have  been  found 
to  be  of  limited  use. 


Figure  2:  Data  input  window  for  data  acquisition  program. 


Clicking  on  the  CONTINUE  button  on  the  screen  will  resume  program  execution. 

The  recorder  should  start  and  after  a  delay  of  about  5  seconds  the  A-D  light  on  the  A- 
to-D  converter  will  come  on.  The  Macintosh  screen  will  change  to  a  window  similar 
to  Figure  3.  The  operator  should  observe  the  monitored  value  in  the  top  right  hand 
corner  of  the  recorder  screen  to  verify  that  a  peak  has  arrived.  If  this  fails  to  happen, 
the  operator  should  wait  until  the  recorder  stops  and  returns  to  LOCAL  mode  and 
should  then  stop  the  program  by  dragging  the  File  menu  item  on  the  Macintosh  to 
QUIT.  The  Macintosh  will  return  to  the  Finder.  The  tape  should  then  be  repositioned 
and  the  program  restarted.  If  the  operator  is  satisfied  that  the  peak  has  been  acquired 
he  can  leave  the  machines  for  a  few  minutes  until  the  Macintosh  displays  a  window 
similar  to  Figure  4.  Clicking  on  the  NEW  RECORD  button  will  return  the  program  to 
the  input  window.  Clicking  on  the  QUIT  button  will  terminate  the  program. 

When  a  few  records  have  been  transferred  (for  instance,  all  the  channels  for  one 
shot)  the  program  can  be  stopped  and  the  acquired  files  can  be  copied  to  another 
computer,  either  via  disk  or  local  network.  These  files  can  be  manipulated  while 
more  data  is  being  transferred  from  the  recorder  to  the  computer.  It  takes  3  or  4 
minutes  to  transfer  6000  points  into  one  file  and  this  time  can  be  used  to  prepare  the 
already  acquired  data  for  graphical  display  and  printing. 


Figure  3:  Macintosh  window  while  data  is  being  transferred. 
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Figure  4:  Termination  window  for  data  acquisition  program. 


7.  Manipulating  the  Data 

The  data  already  acquired  can  be  quickly  scanned  by  using  Igor.  It  is  not  within  the 
scope  of  this  Technical  Note  to  describe  in  detail  the  use  of  Igor  and  only  brief 
explanations  are  given.  On  opening  Igor  the  Macintosh  screen  appears  as  shown  in 
Figure  5.  Pulling  down  the  FILE  menu  to  LOAD  WAVES  ...  LOAD  GENERAL  TEXT 
will  prompt  the  user  for  a  filename.  On  opening  the  requirea  file  the  user  will  be 
prompted  to  supply  two  or  three  Wave  names.  Data  are  stored  in  the  order  Times, 
Pressures  then  Trigger,  if  recorded.  Pulling  down  the  WAVES  menu  item  to 
DISPLAY  WAVES  will  prompt  the  user  to  select  the  X  and  Y  variables  to  plot  The 
plot  should  be  similar  to  Figure  6.  Editing  the  data  can  be  accomplished  by  pulling 
down  the  WAVES  menu  to  EDIT  WAVES  and  selecting  all  the  waves  displayed  in  the 
list.  A  portion  of  the  data  can  be  kept  by  highlighting  the  range  in  the  table  that  is  not 
wanted  and  using  the  CUT  function  (Command-X  on  the  keyboard!  to  remove  those 
values.  In  addition,  if  times  of  arrival  are  required,  the  arrival  time  of  the  trigger  can 
be  subtracted  from  the  time  values  using  a  simple  arithmetic  expression.  If  the  trigger 
time  is  31.4  ms  and  the  time  data  is  labelled  Times,  typing  in  the  Igor  Command 
Window  Times=Times-31 .4  will  alter  all  the  time  values  by  subtracting  31.4.  This 
edited  data  should  then  be  stored  in  a  Macintosh  file  in  text  format.  Dragging  the 
FILE  menu  to  SAVE  WAVES  ...  SAVE  IGOR  TEXT  will  prompt  the  user  to  select  the 
waves  to  be  stored.  Only  the  Time  and  Pressure  should  be  stored  as  the  trigger  is  no 


longer  required.  The  user  will  be  prompted  for  a  file  name  to  store  the  data.  The  Igor 
program  inserts  text  and  unwanted  TABS  in  the  file.  The  text  can  simply  be  deleted 
and  the  TABS  converted  to  spaces  using  the  Macintosh  Desk  Accessory  McSink. 

TABS  are  not  handled  correctly  by  Microsoft  QuickBasic  when  reading  input  files. 
While  editing  using  McSink,  it  is  also  necessary  to  insert  the  number  of  data  values  as 
the  first  line  of  the  data.  This  is  the  same  as  No.of  Points  in  Section  6  and  is  required 
by  the  next  program  Zerocorr,  which  is  used  to  compute  a  mean  zero  value  for  the 
pressure  data  and  operates  by  prompting  the  user  for  up  to  eight  input  and  output 
files.  The  input  window  is  similar  to  Figure  7.  All  the  rectangular  boxes  can  be 
edited  using  Macintosh  click  and  drag  procedures.  Where  less  than  eight  files  are 
availabe  the  first  input  box  after  the  last  file  should  be  set  to  blank.  Only  files  before 
the  blank  will  be  processed.  The  data  is  then  ready  for  final  output,  using  Igor  to  add 
such  things  as  titles,  peak  heights  and  other  useful  information  and  to  send  a  copy  to 
a  printer.  It  has  been  common  practice  to  store  the  raw  data  and  the  Igor  graph  on 
floppy  disk  at  this  time  and  also  on  a  backup  medium.  A  10  Mbyte  Jasmine  drive  has 
been  used  for  this  purpose,  however,  the  Macintosh  must  be  shut  down  to  connect 
the  Jasmine  drive  or  another  computer  used. 


Figure  5:  Igor  window  when  first  opened. 


Figure  6:  Igor  graph  of  pressure  vs  time. 


Figure  7:  Input  window  for  zero  correction  program. 


8.  Conclusion 


A  simple  data  acquisition  system  has  been  developed  from  existing  equipment  with 
the  exception  of  the  MacSCSI488  interface  which  was  acquired  at  a  small,  once  only 
cost.  The  system  is  simple  to  use  and,  with  a  copy  of  this  report  to  hand,  personnel 
should  be  able  to  operate  it  in  a  relatively  short  time. 


Appendix  I  -  Listing  of  Program  for  One  Channel  Acquisition 


00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 


DATA  TRANSFER  FROM  VTR  TO  MACINTOSH  -  ONE  CHANNEL 


TRANSFER  PRESSURE  DATA  FROM  KYOWA  VTR  TO  MACINTOSH 
STORES  DATA  POINTS  IN  A  FILE.  THIS  VERSION  CAN  BE  COMPILED 
DATE:  8/5/92 

FILENAME:  General . lchan 

AUTHOR:  D.R.KIRK 

LANGUAGE:  MICROSOFT  QUICKBASIC 

INSTRUMENTS:  KYOWA  A-D  CONVERTER  ADC-116C  (IEEE  ADDRESS  10) 

KYOWA  VTR  RTP650A  (IEEE  ADDRESS  15) 
MACINTOSH  COMPUTER,  ANY  WITH  SCSI  PORT 
INTERFACE:  IOTECH  MAC  SCSI488  INTERFACE 


'  leee  Initialization 

OPTION  BASE  0 

LIBRARY  'Device. LIB"  'Library  of  Basic  routines 

IEEE%=0  'Interface  buffers 

Buf Len%=64 
Buf$=SPACE$ (BufLen%) 

DIM  ControlParams* (10) 


leeelnit 

'Clear  and  localise  AtoD  &  VTR 

IeeeWrite  "CLEAR  10,15":  leeeWrite  "LOCAL  10,15* 


Newstart : 

Npts%=6000 
Outrange=5 ! 
Playbacks .  2 
Record=76 ! 
Adinterval= . 5 
Range=5 ! 

channel  $=  "Filed.  01" 
chncal=7 . 3 
Inrange=l . 4 


'Restart  here  if  more  data  to  analyse 

' Set  initial  values 

'Number  of  data  values 

'VTR  output  range  (Volts) 
•VTR  speed  cm/s 
'VTR  speed  cm/s 
•AD  Converter  interval  (ms) 

'AD  Voltage  range 
'File  name  for  data  storage 

'Pressure  kPa/volt 
'VTR  input  range 


Window2:  '  display  initial  values  in  edit  fields 

WINDOW  2  , "PROGRAM  PARAMETERS ",  (0 , 40) -< 525 , 336 ) 

BUTTON  5,1, "Alter  or  Verify  these  parameters", (140, 20) - (375, 35) , 1 
BUTTON  6,1, "Click  on  'CONTINUE'  when  ready" , (140, 40) - (375, 55) , 1 
EDIT  FIELD  11, "Press  (kPa/Volt ) * , (105 , 120) - (260, 135) , 3 
EDIT  FIELD  12 , STRS (chncal ) , (270 , 120) - (400, 135) 

EDIT  FIELD  13, "VTR  Range" , (105 , 140) - (260 , 155) , 3 
EDIT  FIELD  14 ,  STRS  Unrange) ,  (270, 140)  -  (400, 155) 

EDIT  FIELD  15, "No. of  Points  (<=  12000) ", (105 , 160) - (260 , 175) , 3 
EDIT  FIELD  16, STRS (Npts%) , (270, 160) - (400, 175) 

EDIT  FIELD  17, "Time  interval  (ms) ", (105, 180) - (260, 195) , 3 
EDIT  FIELD  18, STRS (Adinterval) , (270, 180) - (400, 195) 

EDIT  FIELD  9, "OUTPUT  FILE  NAME* , (105, 100) - (260, 115) , 3 
EDIT  FIELD  10, channels, (270 , 100) - (400, 115) 

BUTTON  1,1, "CONTINUE", (300, 245 )- (370 , 260) ,1 
ACTIVITY*DIALOG  ( 0 ) 

WHILE  ACTIVITYol :  ACTIVITY«DIALOG  (0)  :WEND 


Extract  altered  values  from  edit  fields 

Imge%»INT(Range)  /4 
channelS»EDITS(10) 
chncal«VAL (EDITS (12 ) ) 

Inrange.VAL (EDITS ( 14 ) ) 

NptS»»VAL( EDITS (16) ) 

Adinterval.VAL ( EDITS ( 1 8 ) ) 
Runtime*Npta%*Adinterval* . 001+2 
Timeint«Adinterval "Playback* . 001/Record 


IS 


00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 

00081 

00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

00110 

00111 

00112 

00113 

00114 

00115 

00116 

00117 

00118 

00119 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 

00139 

00140 

00141 

00142 

00143 


IF  Adinterval<l  THEN 
Clk$='CLK6" 

GOTO  Window3 
END  IF 

IF  Adinterval<l . 8  THEN 
ClkS='CLX7* 

GOTO  Window3 
END  IF 

IF  Adinterval<4  THEN 
ClkS='CLX8“ 

GOTO  Window3 
END  IF 
Clk$='CLK9' 

LOCATE  15,10 
Window3 : 

'  Transfer  data  from  VTR  to  A  to  D  Converter 


TZT=TIM£R 
WINDOW  CLOSE  2 

WINDOW  3,****  TRANSFERRING  DATA  ***' ,  (0, 40) - (525, 336) 

BUTTON  1,1,  "DATA  FROM  VTR  TO  AD  CONV  ,  (170, 25)  -  (355, 40)  ,  1 

IeeeWrite  'OUTPUT  15;PF,EX  ‘15  is  GPIB  address  of  VTR,  start  VTR 

'  Reset  AtoD,  storage  mode,  rate 

IeeeWrite  "OUTPUT  10;RST,MOD1, "+ClkS  '10  is  address  of  AtoD  converter 

'  Set  for  channel  1,  range  1  or  5  volts 

IeeeWrite  'OUTPUT  10  ;CHN001001 ,  RNG" +MIDS  (STRS  (Imge%)  ,2,1) 

ZTIME=TIMER 

WHILE  TIMER-ZTIME<5 :  WEND  'Delay  A  to  D  conversion  to  allow  VTR 

IeeeWrite  "OUTPUT  10;TRM0 , STA'  'to  come  up  to  speed 

ZTIME=TIMER 


WHILE  TIMER-ZTIME<Runtime :  WEND 

IeeeWrite  'OUTPUT  10,-STP*  ‘Stop  AtoD  conversion 

IeeeWrite  'OUTPUT  15;SP,EX'  ‘Stop  VTR 

IeeeWrite  "CLEAR15 * :  IeeeWrite  'LOCAL15' 

OPEN  channels  FOR  OUTPUT  AS  #1 

BUTTON  1,1, 'DATA  FROM  AD  CONV  TO  FILE" , (170 , 25 ) - ( 355 , 40 ) , 1 

Set  AtoD  to  start  reading  at  chnl,  all  channels,  number  of  points 
IeeeWrite  'OUTPUT  10;SPN1 , RCH0 , RDD'+MIDS (STRS (Npts%) , 2) 

LOCATE  6,23 

PRINT  *  Records  remaining' 

limit»=100 

kt=0 


WHILE  k*<Npts% 

FOR  i%»i  TO  limit* 
k%=k%+l 

A$=”:  IeeeWrite  'ENTER  10#6':  IeeeReadAS:  A1*=VAL(AS) 

Pressure=Al»*chncal ‘Range* Inrange/ (2000*Outrange) 

Timels (k»-l ) 'Timeint 

PRINT  tl.Timel. Pressure*6/5  ’6/5  only  used  for  backup  tape 

NEXT  i% 

LOCATE  6,40 
PRINT  NptS*-k*;' 

WEND 


IeeeWrite  'CLEAR10* :  IeeeWrite  'LOCAL10' 

CLOSE  #1 
LOCATE  6,40 
PRINT  ' 


Finis: 

TOTIME=TIMER-TZT 

BUTTON  3,1, 'WARNING! ,  REWIND  VTR  TO  START  POINT  BEFORE 
PROCEEDING', ( SO, 230) - (450 , 245) ,1 
BUTTON  1,1, 'QUIT', ( 80 , 260 ) - (120 , 275) , 1 
BUTTON  2,1, 'NEW  RECORD' ,( 150, 260) - (250 , 275) , 1 
LOCATE  12,20 

PRINT  'TIME  TAKEN  =  *;TOTIME;'  SECONDS' 

ACTIVITY  «DI  ALOG  ( 0 ) 

WHILE  ACTIVITYol 
ACTIVI TY«DI ALOG ( 0 ) 

WEND 

ON  DIALOG (1)  GOTO  Termin, Newst , Finis 
Newst : 

BUTTON  CLOSE  1 
BUTTON  CLOSE  2 
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00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

Note: 

they 

00152 

00153 

00154 

00155 

00156 

00157 

00158 

00159 

00160 

00161 

00162 

00163 

00164 

00165 

00166 

00167 

00168 

00169 

00170 

00171 

00172 

00173 

00174 

00175 

00176 

00177 

00178 

00179 

00180 

00181 

00182 

00183 

00184 

00185 

00186 

00187 

00188 

00189 

00190 

00191 

00192 

00194 

00195 

00196 

00197 

00198 

00199 

00200 

00201 

00202 

00203 

00204 

00205 


BUTTON  CLOSE  3 
WINDOW  CLOSE  3 
GOTO  Window2 
Termin: 

WINDOW  CLOSE  3 
Quits: 

END 


The'followlng'subroutines  appear  at  the  end  of  both  program,  although 
omiited  from  the  second  listing. 

•  leee  SubRoutines  required  by  Iotech  MacSCSI488  bus  controller 
SUB  leeelnit  STATIC 
SHARED  IEEE% 
written*=0 

OpenDriver  IEEE" , IEEE* 

IeeeRestart 
IeeeWrite  "RESET* 
leeeWrite  "EOL  IN  NONE’ 

END  SUB 

SUB  leeeFinish  STATIC 
SHARED  IEEE% 

CloseDriver  IEEE% 

END  SUB 

SUB  IeeeRestart  STATIC 

SHARED  IEEE%,ControlParams% t) 

Control  IEEE*, 256, ControlParams* (0) 

END  SUB 

SUB  leeeState (State*)  STATIC 
SHARED  IEEE*, ControlParams* ( ) 

Status  IEEE*, 0, ControlParams* ( 0) 

State* =ControlPararos* ( 0 ) 

END  SUB 

SUB  leeeActive (State*)  STATIC 
SHARED  IEEE*, ControlParams* () 

Status  IEEE*, 0, ControlParams* (0) 

State»=ControlPararos% ( 1 ) 

END  SUB 

SUB  IeeeWr iteB ( text S )  STATIC 
SHARED  IEEE* 
written»=0 

FSWrite  IEEE*, text?. written* 

END  SUB 

SUB  IeeeWrite (textS)  STATIC 
IeeeWriteB(text$+CHRS(13) ) 

END  SUB 

SUB  IeeeRead( results)  STATIC 
SHARED  IEEE*, Buf $ 

Readln*s0 

FSRead  IEEE*, Buf S , Readln* 
result $*LEFT$ (Buf S , Readln* ) 
leeeState  State* 

WHILE  State*<>0 

FSRead  IEEE* , Bu  f S , Readln* 
result$»result$»LEFTS (BufS, Readln*) 
leeeState  State* 

WEND 
END  SUB 
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Appendix  II  -  Listing  of  Program  for  Two  Channel  Acquisition 


00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 


DATA  TRANSFER  FROM  VTR  TO  MACINTOSH  -  TWO  CHANNEL 


TRANSFER  KYOWA  VTR  DATA  AND  TRIGGER  DATA  TO  A  MACINTOSH  FILE 
DATE:  8/5/92/91 

FILENAME:  General . trig 

AUTHOR:  D.R.KIRK 

LANGUAGE:  MICROSOFT  QUICKBASIC 
INSTRUMENTS:  KYOWA  A-D  CONVERTER  ADC-116C 

KYOWA  VTR  RTP650A 
MACINTOSH  SE  OR  SE/30 
INTERFACE:  MACSCSI  488  -  IOTECH 


'  leee  Initialization 

OPTION  BASE  0 
LIBRARY  "Device. LIB" 

IEEE%=0 

BufLen%=64 

Buf $=SPACES (BufLen*) 

DIM  ControlParams% (10) 


Ieeelnit 

IeeeWrite  "CLEAR  10,15":  IeeeWrite  "LOCAL  10,15" 

'Clear  and  localise  AtoD  &  VTR 


channels ="File01 . 01" 
Npts%=6000 
Inrange -6 
Outrange=5 ! 
Playbacks.  2 
Record=76 ! 


'File  name  for  data  storage 

'VTR  input  range 
'VTR  output  range 
'VTR  cm/s 
•VTR  cm/s 


Adinterval=l !  'AD  Converter  (ms) 

Range=5!  'AD  Voltage  range 

Irnge%=INT (Range) /4 
chncal=7 ! 

Newstart:  'Restart  here  if  more  data  to  analyse 

Window2 : 

WINDOW  2  , "PROGRAM  PARAMETERS ",  (0 , 40 )- (525 , 336 ) 

BUTTON  5,1, "Alter  or  Verify  these  parameters" , (140, 20) - (375, 35) , 1 
BUTTON  6,1, "Click  on  'CONTINUE'  when  ready" , (140, 40) - (375, 55) , 1 
EDIT  FIELD  11, "Pressure  (kPa/Volt ) " , (105 , 120) - (250 , 135) , 3 
EDIT  FIELD  12. STRS (chncal) , (260, 120) - (400, 135) 

EDIT  FIELD  13, "VTR  Range" , (105, 140) - (250 , 155) , 3 
EDIT  FIELD  14 , STRS ( Inrange) , (260 , 140) - (400 , 155) 

EDIT  FIELD  15, "Time  Interval  (ms) " , (105 , 160) - (250 , 175) , 3 
EDIT  FIELD  16, STRS (Adinterval) , (260, 160) - (400, 175 ) 

EDIT  FIELD  17, "No. of  Points  (<8000) * , (105 , 180) - (250, 195 ) , 3 
EDIT  FIELD  18, STRS (Npts% ) , (260 , 180) - (400 , 195) 

EDIT  FIELD  9, "OUTPUT  FILE  NAME" , (105, 100 )- (250 , 115) , 3 
EDIT  FIELD  10, channels, (260, 100) - (400, 115) 

BUTTON  1,1, "CONTINUE", (300 , 230) - (370, 245 ) ,1 
ACTIVITYsDIALOG  ( 0 ) 

WHILE  ACTIVITYol :  ACTIVITY«DIALOG  (0 )  :WEND 
channelS*EDIT$ (10) 
chncal«VAL (EDITS (12) ) 

InrangexVAL (EDITS (14) ) 

Adinterval«VAL (EDITS (16) ) 

NptS%xVAL( EDITS (18) ) 

Runtime=Npts%*Adinterval* .001+2 
Timeint=Adinterval*Playback/Record 
IF  Adinterval<l  THEN 

ClkS*"CLK6 "  •  Ad  interval  *  0.5  ms  Real  time  7.9  us 

GOTO  Windows 
END  IF 

IF  Adinterval<l . 8  THEN 

Clk$«*CLK7"  "  Ad  interval  -  1.0  ms  Real  time  15.8  us 

GOTO  Window3 
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00070  END  IF 

00071  IF  Adinterval<4  THEN 

00072  Clk$='CLX8'  *  Ad  interval  =  2.0  ms  Real  time  31.7  us 

00073  GOTO  Window3 

00074  END  IF 

00075  ClkS=  'CLK9 ■  1  Ad  interval  =  5 . 0  ms  Real  time  78.9  us 

00076  LOCATE  15,10 

00077  Window3 :  1 - 

00078  TZT*TIMER 
00079  WINDOW  CLOSE  2 

00080  WINDOW  3,****  TRANSFERRING  DATA  *•* • , (0, 40) - (525, 336) 

00081  BUTTON  1,1, 'DATA  FROM  VTR  TO  AD  CONV  ,  (170, 25)  -  (35S,  40)  ,  1 
00082  IeeeWrite  'OUTPUT  15;PF,EX' 

00083  IeeeWrite  'OUTPUT  10;RST,MOD1, "+Clk$  •  Storage  Mode, 

Interval 


00084  IeeeWrite  'OUTPUT  10,-CHN001002,RNG"+MID$  (STR$ <Imge%)  ,2, 1) 

00085  ztime=TIMER 

00086  WHILE  TIMER-ztime<5 :  WEND  'delay  A  to  D  start  by  5 

second 

00087  IeeeWrite  'OUTPUT  10;TRM0,STA'  'Start  A  to  D 

conversion 

00088  ztime=TIMER 

00089  WHILE  TIMER-ztime<Runtime :  WEND 

00090  IeeeWrite  'OUTPUT  15;SP,EX'  'Stop  VTR 

00091  IeeeWrite  'OUTPUT  10;STP'  'Stop  A  to  D 

converter 

00092  IeeeWrite  'CLEARIS":  IeeeWrite  "LOCAL15'  ‘Clear  and  localise 

00093  BUTTON  1.1, 'DATA  FROM  AD  CONV  TO  FILE' , ( 170 , 25) - (3S5 , 40) , 1 
00094  IeeeWrite  'OUTPUT  10 ;SPN1 , RCH0 , RDD'+MIDS (STRS (Npts%) , 2 ) 

'  Set  A  to  D  for  data  output 
FOR  OUTPUT  AS  #1 


VTR 


00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 

A1%=VAL(A$) 

00104 

BlScVAL(B$) 
00105 
00106 
00107 
tape 
00108 
00109 
00110 
00111 
00112 
00113 
00114 
AtoD 


OPEN  channels 
LOCATE  4,23 

PRINT  '  Records  remaining' 

limit%=100 

k%=0 

WHILE  k%<Npts% 

FOR  i%=l  TO  limit* 
k%=k*+l 

A$=":  IeeeWrite 


■ENTER  10#6" 


B$=  ' 


IeeeWrite  'ENTER  10#6": 


IeeeRead  AS: 
IeeeRead  B$ : 


Pressure=Al%*chncal*Range* Inrange/ (2 000 ‘Outrange) 

PRINT  #l,k%*Timeint*-001,-CHRS  (9)  , -Pressure* 6/ 5, -CHRS  (9)  ;B1% 

■6/5  only  for  backup 


NEXT  i% 
LOCATE  4,40 
PRINT  Npts%-k%; 
WEND 

LOCATE  4,40 
PRINT  ' 

IeeeWrite  'CLEAR10' 


IeeeWrite  'LOCAL10' 


’Clear  and  localise 


00115  CLOSE  #1 

00116  - - 

00117  Finis: 

00118  TOTIME=TIMER-TZT 

00119  BUTTON  6 , 1 , 'WARNING  1 ,  REWIND  VTR  TO  START  POINT  BEFORE 

PROCEEDING', (50, 230) - <450, 245 ) ,1 
00120  BUTTON  1 , 1, 'QUIT' , (80 , 260) - ( 120 , 275 ) , 1 
00121  BUTTON  2 , 1 . 'NEW  RECORD' ,( 150 , 260! - (250 , 275 ), 1 
00122  LOCATE  12,20 

00123  PRINT  'TIME  TAKEN  *  *  ;TOTIME;  '  SECONDS 

00124  ACTIVITY=DIALOG(0>  :  WHILE  ACTIVITYol:  ACTIVITY=DIALOG ( 0 >  -•  WEND 
00125  ON  DIALOG (1)  GOTO  Termin.Newst 
00126  Newst: 

00127  BUTTON  CLOSE  1 
00128  BUTTON  CLOSE  2 
00129  BUTTON  CLOSE  6 
00130  WINDOW  CLOSE  3 
00131  GOTO  Newstart 
00132  Termin: 

00133  WINDOW  CLOSE  3 
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00134 

00135 

00136 

00137 


Quits: 

END 


Ieee  functions  as  for  one  channel  listing 
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